home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / Demo (Pl-B) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  42 lines
  1. 10 REM ******************
  2. 20 REM PLOTTER-BASIC DEMO
  3. 30 REM ******************
  4. 35 .SCHWARZ:.GK:.MITTEL
  5. 37 .TEXT,"     [196]REHUNG EINES 3-[196]-[203]OERPERS"
  6. 38 .TEXT,"     =========================="
  7. 39 .MOVE,0,-70:.TEXT
  8. 40 XV=240:YV=0:REM VERSCHIEBUNGSVEKTOR
  9. 41 F=15       :REM VERGROESSERUNG
  10. 42 W=35       :REM BETRACHTUNGSWINKEL
  11. 43 L=24       :REM ANZAHL DER LINIEN
  12. 45 DIM R(L)   :REM FELD DER LINIEN
  13. 50 P=8        :REM ANZAHL DER ECKPUNKTE
  14. 55 DIM X(P):DIM Y(P):DIM Z(P)
  15. 60 REM EINLESEN DER ECKPUNKTE
  16. 70 FOR I=1 TO P
  17. 80 READ X(I),Y(I),Z(I)
  18. 90 NEXT
  19. 100 REM EINLESEN DER VERBINDUNGSFOLGE
  20. 110 FOR I=1 TO L
  21. 120 READ R(I)
  22. 130 NEXT
  23. 140 REM ZEICHNUNG
  24. 150 FOR I=1 TO L STEP 2
  25. 160 .TRANSL,X(R(I)),Y(R(I)),Z(R(I)),XV,YV,F,W,X(R(I+1)),Y(R(I+1)),Z(R(I+1))
  26. 170 NEXT
  27. 180 REM DREHUNG UM 10 GRAD
  28. 185 DW=DW+10
  29. 190 FOR I=1 TO P
  30. 200 .TURN,X(I),Y(I),DW:REM DREHUNG UM Z
  31. 210 NEXT
  32. 220 .MOVE,0,-150
  33. 230 .TEXT             :REM CR SENDEN
  34. 240 PRINT "COMMODORE-TASTE DRUECKEN!"
  35. 250 WAIT 653,2
  36. 260 PRINT "[145]                         [145]"
  37. 270 GOTO 140
  38. 499 REM ECKPUNKTE
  39. 500 DATA -2,-2,0,2,-2,0,2,2,0,-2,2,0,0,0,6,4,0,6,4,4,6,0,4,6
  40. 599 REM REIHENFOLGE DER VERBINDUNGEN
  41. 600 DATA 1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,8,5,5,6,6,7,7,8
  42.